home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pct3661.arc
/
FIX365.MRG
< prev
next >
Wrap
Text File
|
1986-04-25
|
1KB
|
24 lines
3247 ' COMM$=COMMPORT$+BAU$+","+PAR$+","+DTA$+","+STP$+COMMINIT$:CLOSE#1:OPEN COMM$ AS #1:RETURN
3248 gosub 40000:return
4512 'CLOSE #1:OPEN COMMPORT$+BAU$+",N,8,1"+COMMINIT$ AS #1 'original code
4513 opar$=par$:odta$=dta$:par$="N":dta$="8":gosub 40000:par$=opar$:dta$=odta$
4635 PRINT"***End of File - verified":PRINT#1,ACK$;:gosub 40000:GOTO 3010
4640 PRINT"***Cancelled by Transmitter":gosub 40000:GOTO 3010
4645 PRINT"***Cancelled by Receiver":PRINT#1,CAN$;:GOSUB 4975:gosub 40000:GOTO 3010
4712 'CLOSE #1:OPEN COMMPORT$+BAU$+",N,8,1"+COMMINIT$ AS #1 'original code
4713 opar$=par$:odta$=dta$:par$="N":dta$="8":gosub 40000:par$=opar$:dta$=odta$
40000 ' reset parity and number of data bits on the fly ******************
40100 IF PAR$="N" AND DTA$="7" THEN NEWPD=2
40200 IF PAR$="E" AND DTA$="7" THEN NEWPD=26
40300 IF PAR$="O" AND DTA$="7" THEN NEWPD=10
40400 IF PAR$="M" AND DTA$="7" THEN NEWPD=42
40500 IF DTA$="8" THEN NEWPD=3
40600 OUT LCR,NEWPD
40700 RETURN
END OF TRANSFER - PRESS ENTER TO RETURN TO MENU
EWPD=42
40500 IF DTA$="8" THEN NEWPD=3
40600 OUT LCR,NEWPD
40700 RETURN
END OF TRANSFER - PRESS ENT